﻿<!--#include file="Include/base.asp"-->
<%
response.buffer=true
response.expiresabsolute=now()-1
response.expires=0
response.cachecontrol="no-cache"

dim okmsg:okmsg="<img src=""images/ok.gif"">"
dim errmsg:errmsg="<img src=""images/err.gif"">"
dim act:act=trim(request.querystring("act"))
select case act
	case "a":lever_a "../DataBase"
	case "b":lever_a "../Upload"
	case "c":lever_a "../Templates"
	case "k":lever_a "../"
	case "d":lever_b "Microsoft.XMLHTTP"
	case "e":lever_b "Scripting.FileSystemObject"
	case "f":lever_b "Adodb.Stream"
	case "g":lever_b "Scripting.Dictionary"
	case "h":lever_b "Persits.Jpeg"
	case "i":lever_b "Jmail.Message"
	case "j":lever_b "Cdo.Message"
end select

sub lever_a(byval t0)
	if check_competence(t0) then
		echo okmsg
	else
		echo errmsg
	end if
end sub

sub lever_b(byval t0)
	if isinstall(t0) then
		echo okmsg
	else
		echo errmsg
	end if
end sub
%>